#extra output (for appendix)
wd_other_output<-paste0(wd_code,'06_figures_03_04_table_04_IV/other output/')

data_regression<-data_student_raw %>%
  mutate(grad_perc=grad_perc*100,
         entrance_perc=entrance_perc*100,
         school_mean=school_mean*100,
         class_mean=class_mean*100,
         grad_perc_0=grad_perc_0*100)


#knit IV main table and all graphs
current_path<-rstudioapi::getActiveDocumentContext()$path
setwd(dirname(current_path))
#figures 3, 4 and table 4
rmarkdown::render("06_figures_03_04_table_04.Rmd",output_dir=wd_other_output)
#robustness checks: appendix
rmarkdown::render("06_regression_and_figure_robustness.Rmd",output_dir=wd_other_output)
#other outcomes: appendix
rmarkdown::render("06_regression_and_other_outcomes.Rmd",output_dir=wd_other_output)


#overidentification: appendix
rmarkdown::render("06_regression_overidentification.Rmd",output_dir= wd_other_output)



